home *** CD-ROM | disk | FTP | other *** search
/ JCSM Shareware Collection 1996 September / JCSM Shareware Collection (JCS Distribution) (September 1996).ISO / tutorial / trac.zip / FIGII-5.OBJ < prev    next >
Text File  |  1990-01-25  |  896b  |  28 lines
  1. 0010     401901 Read value for N
  2. 0011     001901 Load N into A
  3. 0012     240016 If negative go to stop 
  4. 0013     250016 If zero go to stop
  5. 0014     021801 Subtract 13
  6. 0015     240017 If negative skip around stop
  7. 0016     500000 Stop
  8. 0017     001802 Load 1
  9. 0018     031902 Store at F
  10. 0019     001803 Load 2
  11. 0020     031804 Store at K
  12. 0021     021901 Subtract N
  13. 0022     240026 Jump, if negative, to update F
  14. 0023     250026 Jump, if zero, to update F
  15. 0024     411901 Print
  16. 0025     260010 Branch back to beginning
  17. 0026     001902 Load F
  18. 0027     151804 Multiply by K
  19. 0028     031902 Store at F
  20. 0029     001804 Load K
  21. 0030     011802 Add 1
  22. 0031     031804 Store at K
  23. 0032     260021 Branch to test if done
  24. 1801         13 Constant 13
  25. 1802          1 Constant 1
  26. 1803          2 Constant 2
  27. 9999     000010 End of code
  28.